Revert "Fix `speedbar-directory-buttons' when using Tramp"

This reverts commit 5afad3918bc8816b74e8efcff9cc441785446aa6.

This patch can't possibly be correct, and it breaks the stated interface.

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 4666026f3571d1acb0f8043abe4a3815d209f581..34fbec9c2189f3989469ac005a8423c60cd854b9 100644 (file)
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -1822,9 +1822,9 @@ matches the user directory ~, then it is replaced with a ~.
 INDEX is not used, but is required by the caller."
   (let* ((tilde (expand-file-name "~/"))
         (dd (expand-file-name directory))
-        (junk (string-prefix-p "~/" dd))
+        (junk (string-match (regexp-quote tilde) dd))
         (displayme (if junk
-                       (concat "~/" (substring dd 2 nil))
+                       (concat "~/" (substring dd (match-end 0)))
                      dd))
         (p (point)))
     (if (string-match "^~[/\\]?\\'" displayme) (setq displayme tilde))